(fancy-splash-head): Don't change the colors of the
authorGerd Moellmann <gerd@gnu.org>
Tue, 20 Mar 2001 15:14:48 +0000 (15:14 +0000)
committerGerd Moellmann <gerd@gnu.org>
Tue, 20 Mar 2001 15:14:48 +0000 (15:14 +0000)
XPM image on a dark background.

lisp/startup.el

index 44b15bc9772c5ac45a956dad0867cb323748299e..401b1f3f41b9e5168547f817cfed7595ddeaa920 100644 (file)
@@ -1087,12 +1087,6 @@ where FACE is a valid face specification, as it can be used with
        (let ((pos (/ (- window-width image-width) 2)))
          (insert (propertize " " 'display `(space :align-to ,pos))))
 
-       ;; Change the color of the XPM version of the splash image
-       ;; so that it is visible with a dark frame background.
-       (when (and (memq 'xpm img)
-                  (eq (frame-parameter nil 'background-mode) 'dark))
-         (setq img (append img '(:color-symbols (("#000000" . "gray"))))))
-
        ;; Insert the image with a help-echo and a keymap.
        (let ((map (make-sparse-keymap))
              (help-echo "mouse-2: browse http://www.gnu.org/"))